﻿Imports Microsoft.VisualBasic
Imports System.Data
Imports System.ComponentModel
Public Class Estadisticas
    Inherits BDDatos
    <DataObjectMethodAttribute(DataObjectMethodType.Select, True)> _
    Public Function GetEgresadoxAño(ByVal filtrar As Boolean, ByVal año As String) As DataTable
        Me.Conectar()
        If filtrar = False Then
            Me.querystring = "select count(*) Cantidad, sexo from vegresados group by sexo"
            CrearComando(querystring)
        Else
            Me.querystring = "select count(*) Cantidad, sexo from vegresados WHERE to_char(fecha_grado,'yyyy')=:Fecha group by sexo "
            CrearComando(querystring)
            Me.AsignarParametroCadena(":Fecha", año)
        End If
        Dim dt As DataTable = EjecutarConsultaDataTable()
        Me.Desconectar()
        Return dt
    End Function
    <DataObjectMethodAttribute(DataObjectMethodType.Select, True)> _
    Public Function GetxPrograma(ByVal filtrar As Boolean, ByVal año As String) As DataTable
        Me.Conectar()
        If filtrar = False Then
            Me.querystring = "select count(*) Cantidad, nom_programa from vegresados group by nom_programa"
            CrearComando(querystring)
        Else
            Me.querystring = "select count(*) Cantidad, nom_programa from vegresados WHERE to_char(fecha_grado,'yyyy')=:Fecha group by nom_programa"
            CrearComando(querystring)
            Me.AsignarParametroCadena(":Fecha", año)
        End If
        Dim dt As DataTable = EjecutarConsultaDataTable()
        Me.Desconectar()
        Return dt
    End Function
    <DataObjectMethodAttribute(DataObjectMethodType.Select, True)> _
    Public Function GetxAño(ByVal filtrar As Boolean, ByVal año As String) As DataTable
        Me.Conectar()
        If filtrar = False Then
            Me.querystring = "select count(*) Cantidad, to_char(fecha_grado,'yyyy') Ano from vegresados group by to_char(fecha_grado,'yyyy')"
            CrearComando(querystring)
        Else
            Me.querystring = "select count(*) Cantidad, to_char(fecha_grado,'yyyy') Ano from vegresados WHERE to_char(fecha_grado,'yyyy')=:Fecha group by to_char(fecha_grado,'yyyy')"
            CrearComando(querystring)
            Me.AsignarParametroCadena(":Fecha", año)
        End If
        Dim dt As DataTable = EjecutarConsultaDataTable()
        Me.Desconectar()
        Return dt
    End Function
End Class
